home *** CD-ROM | disk | FTP | other *** search
/ Get On The Internet / Get on the Internet.iso / tutorial / ptwin / les3 / les3.cmd < prev   
Encoding:
Text File  |  1995-03-08  |  29.3 KB  |  989 lines
  1. init ;
  2.         winpos 0 0 ;
  3.         winsize 640 480 ;
  4.         config __development 0 ;
  5.         config __removeclear 0 ;
  6.         config __fullscreen 1 ;
  7.         config __tipespeed 15 ;
  8.         config clock 302 ;
  9.         config __lessontitle "Lesson 3 Menu" ;
  10. endinit ;
  11.  
  12. function "map1" ;
  13.         clearmapscreen ;
  14.         mapscreen 0 40 40 40 text2 14 440 "Click Here For Help" ;
  15.         mapscreen 40 40 40 40 text2 14 440 "Read Electronic Mail" ;
  16.         mapscreen 80 40 40 40 text2 14 440 "Send Electronic Mail" ;
  17.         mapscreen 120 40 40 40 text2 14 440 "Browse the World Wide Web - Global Hypertext Information" ;
  18.         mapscreen 160 40 40 40 text2 14 440 "Browse Gopher - Global Information Menus" ;
  19.         mapscreen 200 40 40 40 text2 14 440 "Read Netnews Newsgroups" ;
  20.         mapscreen 240 40 40 40 text2 14 440 "Post to Netnews Newsgroups" ;
  21.         mapscreen 280 40 40 40 text2 14 440 "FTP File Transfer" ;
  22.         mapscreen 320 40 40 40 text2 14 440 "Telnet - Log Into Remote Computers" ;
  23.         mapscreen 360 40 40 40 text2 14 440 "Finger - Look Up User Information On Internet Systems" ;
  24.         mapscreen 400 40 40 40 text2 14 440 "IRC - Chat With Internet Users All Over The World" ;
  25.         enablescreenmap ;
  26. endfunction ;
  27.  
  28. function "map2" ;
  29.         mapscreen 47 81 37 37 text2 14 440 "Reply to current message." ;
  30.         mapscreen 84 81 37 37 text2 14 440 "Forward current message." ;
  31.         mapscreen 121 81 37 37 text2 14 440 "Save current message." ;
  32.         mapscreen 480 81 37 37 text2 14 440 "Delete current message." ;
  33.         mapscreen 517 81 37 37 text2 14 440 "Read next selected message." ;
  34.         enablescreenmap ;
  35. endfunction ;
  36.  
  37. segment "main" 0 ;
  38.     chainseg "seg_00" ;
  39. endseg ;
  40.  
  41. segment "seg_00" 1 ;
  42.         menuitem "Lesson Introduction" ;
  43.         startimg "tr.pcf" 0 0 ;
  44.         config __textcolor darkcyan ;
  45.         text "tx0a" 222 39 390 23 "~f05Lesson 3:  Sending and Receiving Electronic Mail" ;
  46.         config __textcolor darkred ;
  47.         text "tx0" 337 69 120 33 "~f27Welcome" ;
  48.         config __textcolor medblue ;
  49.         text "tx1" 244 139 279 33 "~f26In this lesson you will:" ;
  50.         startbullet 219 180 379 250 ;
  51.         bullet "b1" 1 0 "Send email messages" ;
  52.         bullet "b3" 1 6 "Read email messages" ;
  53.         bullet "b4" 1 12 "Reply to email messages" ;
  54.         bullet "b5" 1 18 "Subscribe to a Mailing List" ;
  55.         startavi "l3s.avi" "jnk1.vcw" 15 78 ;
  56.         status "Click to continue..." ;
  57.         anykeymouse 17 ;
  58.         status ;
  59.         clrscr ;
  60.         endimg ;
  61.         endavi ;
  62.     chainseg "seg_01" ;
  63. endseg ;
  64.  
  65. segment "seg_01" 1 ;
  66.         menuitem "Sending Electronic Mail" ;
  67.         startimg "l3_seg1.pcf" 0 0 ;
  68.         call "map1" ;
  69.         startaud "net_3_1.wav" "net_3_1.vcw" 0 ;
  70.     frame ;
  71.         textbox "tb1" 1 98 145 68 "All services provide a way to send and receive email." ;
  72.     frame ;
  73.         clrscr ;
  74.     frame ;
  75.         arrow "a3" 100 81 1 ;
  76.         text "tx3" 83 131 52 19 "~c06Send" ;
  77.     frame ;
  78.         arrow "a4" 60 81 1 ;
  79.         text "tx4" 42 131 35 17 "~c06Read" ;
  80.         touch "tx3" ;
  81.     frame ;
  82.         remove "tx3" "tx4" "a4" ;
  83.     frame ;
  84.         pauseaud ;
  85.         status "Click the \"Send Electronic Mail\" button." ;
  86.         imouse 1 80 40 40 40 ;
  87.         status ;
  88.         clrscr ;
  89.         nextimg ;
  90.         config __caretheight 14 ;
  91.         showcaret 30 104 ;
  92.         disablescreenmap ;
  93.         resumeaud ;
  94.     frame ;
  95.         config __arrowtoken 2 ;
  96.         arrow "a7" 27 112 2 ;
  97.     frame ;
  98.         arrow "a8" 27 191 2 ;
  99.     frame ;
  100.         pauseaud ;
  101.         status "Please wait..." ;
  102.         clrscr ;
  103.         nextimg ;
  104.         showcaret 39 104 ;
  105.         sleep 1 ;
  106.         config __textfont 31 ;
  107.         tipe "tp2" 39 104 172 20 "gilbert@bvsc.k12.co.us" ;
  108.         status ;
  109.         resumeaud ;
  110.     frame ;
  111.         config __arrowtoken 0 ;
  112.         arrow "a10" 280 98 3 ;
  113.     frame ;
  114.         pauseaud ;
  115.         status "Click the \"Use\" button." ;
  116.         imouse 1 260 101 48 24 ;
  117.         status ;
  118.         nextimg ;
  119.         clrscr ;
  120.         config __rectcolor white ;
  121.         rect "r3" 391 88 165 12 ;
  122.         text "tx3" 390 86 187 26 "To:  pgilbert@bvsc.k12.co.us" ;
  123.         showcaret 30 104 ;
  124.         resumeaud ;
  125.     frame ;
  126.         textbox "tb12" 393 112 203 102 "You can send the same message to several people by typing in another email address or by selecting one from the Address Book." ;
  127.     frame ;
  128.         pauseaud ;
  129.         status "Click the \"OK\" button." ;
  130.         imouse 1 548 245 65 24 ;
  131.         status ;
  132.         clrscr ;
  133.         nextimg ;
  134.         rect "r4" 94 132 165 16 ;
  135.         text "tx4" 94 132 187 26 "To:  pgilbert@bvsc.k12.co.us" ;
  136.         showcaret 93 156 ;
  137.         enablescreenmap ;
  138.         resumeaud ;
  139.     frame ;
  140.         pauseaud ;
  141.         status "Click the Maximize button in the \"Send Mail\" window." ;
  142.         config __arrowtoken 2 ;
  143.         arrow "a14" 603 101 3 ;
  144.         imouse 1 594 103 20 19 ;
  145.         status ;
  146.         nextimg ;
  147.         clrscr ;
  148.         config __rectcolor medblue ;
  149.         rect "r5" 66 89 167 17 ;
  150.         config __textcolor white ;
  151.         text "tx5" 66 89 187 26 "To:  pgilbert@bvsc.k12.co.us" ;
  152.         showcaret 65 113 ;
  153.         resumeaud ;
  154.     frame ;
  155.         config __arrowtoken 0 ;
  156.         arrow "a15" 66 132 1 ;
  157.     frame ;
  158.         text "tx15" 69 113 210 17 "~c01Always include a subject! : )" ;
  159.     frame ;
  160.         pauseaud ;
  161.         status "Please wait..." ;
  162.         remove "tx15" "a15" ;
  163.         config __textcolor black ;
  164.         sleep 1 ;
  165.         tipe "tp6" 66 113 242 20 "Skiing this weekend" ;
  166.         status ;
  167.         resumeaud ;
  168.     frame ;
  169.         pauseaud ;
  170.         status "Press <Enter>." ;
  171.         ikey return ;
  172.         status ;
  173.         config __caretheight 16 ;
  174.         config __caretwidth 2 ;
  175.         showcaret 4 169 ;
  176.         resumeaud ;
  177.     frame ;
  178.         arrow "a19" 10 176 4 ;
  179.     frame ;
  180.         pauseaud ;
  181.         status "Please wait..." ;
  182.         remove "a19" ;
  183.         sleep 1 ;
  184.         tipe "tp8" 5 170 608 25 "They're predicting a HUGE snow storm on Friday.  Do you want to play in powder with me on Saturday?" ;
  185.         status ;
  186.         resumeaud ;
  187.     frame ;
  188.         arrow "a21" 596 83 3 ;
  189.     frame ;
  190.         pauseaud ;
  191.         status "Click the \"Send\" button." ;
  192.         imouse 1 571 85 56 24 ;
  193.         status ;
  194.         clrscr ;
  195.         hidecaret ;
  196.         nextimg ;
  197.         config __rectcolor white ;
  198.         rect "r4" 46 144 165 16 ;
  199.         text "tx4" 46 144 187 26 "To:  pgilbert@bvsc.k12.co.us" ;
  200.         resumeaud ;
  201.     frame ;
  202.         nextimg ;
  203.     frame ;
  204.         clrscr ;
  205.         nextimg ;
  206.     frame ;
  207.         pauseaud ;
  208.         config __bitmapontrans 1 ;
  209.         config __bitmapontcolor green ;
  210.         config __bitmaponfx 15 ;
  211.         config __bitmapongrain 5 ;
  212.         config __bitmaponsubgrain 5 ;
  213.         config __bitmapondelay 1 ;
  214.         bitmap "bit25" "internet.dll" "WIZS1" 330 271 ;
  215.         resumeaud ;
  216.     frame ;
  217.         pauseaud ;
  218.         status "Please wait..." ;
  219.         clrscr ;
  220.         endimg ;
  221.         hourglass 1 ;
  222.         config __rectcolor black ;
  223.         rect "r26" 0 0 641 480 ;
  224.         config __bitmaponfx 0 ;
  225.         bitmap "bit25a" "internet.dll" "LIGHTNG" 50 50 ;
  226.         bitmap "bit25b" "internet.dll" "LIGHTNG" 200 200 ;
  227.         sleep 200 ;
  228.         clrscr ;
  229.         status ;
  230.         hourglass 0 ;
  231.         endaud ;
  232.     chainseg "seg_02" ;
  233. endseg ;
  234.  
  235. segment "seg_02" 1 ;
  236.         menuitem "Reading Electronic Mail" ;
  237.         startimg "l3_seg2.pcf" 0 0 ;
  238.         call "map1" ;
  239.         startaud "net_3_2.wav" "net_3_2.vcw" 0 ;
  240.     frame ;
  241.         arrow "a1" 60 82 1 ;
  242.     frame ;
  243.         pauseaud ;
  244.         status "Click the \"Read Electronic Mail\" button." ;
  245.         imouse 1 40 40 40 40 ;
  246.         status ;
  247.         clrscr ;
  248.         nextimg ;
  249.         disablescreenmap ;
  250.         resumeaud ;
  251.     frame ;
  252.         pauseaud ;
  253.         status "Click the \"OK\" button." ;
  254.         imouse 1 472 111 62 24 ;
  255.         status ;
  256.         nextimg ;
  257.         resumeaud ;
  258.     frame ;
  259.         pauseaud ;
  260.         status "Please wait..." ;
  261.         hourglass 1 ;
  262.         nextimg ;
  263.         sleep 100 ;
  264.         nextimg ;
  265.         status ;
  266.         config __rectcolor white ;
  267.         rect "r5" 78 214 486 35 ;
  268.         text "tx5" 82 213 502 90 "~f324  support@ix.netcom.com             How to use notebook with same account ~n5  pgilbert@bvsd.com.us" ;
  269.         text "tx5a" 263 229 178 18 "~f32Skiing this weekend" ;
  270.         rect "r5a" 78 168 394 17 ;
  271.         text "tx5b" 82 166 394 17 "~f321  fredgx@point1.com                     A course on our new product" ;
  272.         enablescreenmap ;
  273.         hourglass 0 ;
  274.         resumeaud ;
  275.     frame ;
  276.         pauseaud ;
  277.         status "Click the Maximize button in the \"Read Mail\" window." ;
  278.         imouse 1 562 100 21 21 ;
  279.         status ;
  280.         clrscr ;
  281.         nextimg ;
  282.         rect "r5" 17 170 175 17 ;
  283.         text "tx5" 23 169 177 26 "~f324  support@ix.netcom.com" ;
  284.         rect "r5f" 17 186 175 17 ;
  285.         text "tx5d" 22 186 178 17 "~f325   pgilbert@bvsd.com.us" ;
  286.         rect "r5d" 199 183 311 19 ;
  287.         text "tx5a" 203 186 178 18 "~f32Skiing this weekend" ;
  288.         rect "r5a" 20 121 183 17 ;
  289.         text "tx5b" 22 121 130 17 "~f321  fredgx@point1.com" ;
  290.         rect "r5c" 200 121 200 17 ;
  291.         text "tx5c" 203 121 200 17 "~f32A course on our new product" ;
  292.         rect "r5e" 199 168 311 19 ;
  293.         text "tx5e" 204 170 214 19 "~f32How to use notebook with same account" ;
  294.         call "map2" ;
  295.         resumeaud ;
  296.     frame ;
  297.         arrow "a4" 25 235 1 ;
  298.     frame ;
  299.         remove "a4" ;
  300.         arrow "a5" 100 235 1 ;
  301.     frame ;
  302.         remove "a5" ;
  303.         arrow "a6" 273 235 1 ;
  304.     frame ;
  305.         remove "a6" ;
  306.         arrow "a7" 320 193 4 ;
  307.         touch "r5d" "r5e" "tx5e" ;
  308.     frame ;
  309.         pauseaud ;
  310.         status "Double-click anywhere on Message 5." ;
  311.         imouse 4 0 184 620 14 ;
  312.         status ;
  313.         remove "a7" ;
  314.         nextimg ;
  315.         rect "r8" 1 264 510 33 ;
  316.         text "tx8" 1 264 168 17 "~f32From:  pgilbert@bvsd.com.us" ;
  317.         text "tx8a" 0 281 274 17 "~f32Subject:  Skiing this weekend" ;
  318.         rect "r8a" 1 326 619 82 ;
  319.         text "tx8b" 0 322 586 87 "~f20Hey dude: ~n~nYou know I'd love to go.  I hear Vail has two for one passes this weekend.  Let's go! ~n~nPam :)" ;
  320.         touch "r5" "r5a" "r5c" "r5d" "r5e" "tx5" "tx5a" "tx5b" "tx5c" "tx5d" "r5f" "tx5e" ;
  321.         resumeaud ;
  322.     frame ;
  323.         arrow "a11" 163 86 4 ;
  324.     frame ;
  325.         menuitem "Deleting Email Messages" ;
  326.         remove "a11" ;
  327.         arrow "a12" 498 75 3 ;
  328.     frame ;
  329.         pauseaud ;
  330.         status "Click the \"Delete current message\" button." ;
  331.         imouse 1 480 80 38 35 ;
  332.         status ;
  333.         remove "tx5c" "tx5a" "r5d" "r5e" "r5c" "tx5e" "a12" ;
  334.         nextimg ;
  335.         resumeaud ;
  336.     frame ;
  337.         pauseaud ;
  338.         status "Click the \"Yes\" button." ;
  339.         imouse 1 257 188 57 27 ;
  340.         status ;
  341.         remove "tx5d" "r5f" ;
  342.         remove "r8" "tx8" "tx8a" "r8a" "tx8b" ;
  343.         nextimg ;
  344.         rect "r5c" 200 121 200 17 ;
  345.         rect "r5e" 199 168 311 19 ;
  346.         text "tx5c" 203 121 200 17 "~f32A course on our new product" ;
  347.         text "tx5e" 204 170 214 19 "~f32How to use notebook with same account" ;
  348.         touch "r5" "tx5" "tx5b" "r5a" ;
  349.         resumeaud ;
  350.     frame ;
  351.         arrow "a15" 424 177 4 ;
  352.     frame ;
  353.         pauseaud ;
  354.         status "Double-click anywhere on Message 4." ;
  355.         imouse 4 0 168 621 20 ;
  356.         status ;
  357.         remove "a15" ;
  358.         nextimg ;
  359.         rect "r11" 1 264 510 33 ;
  360.         text "tx11" 1 264 187 18 "~f32From:  support@ix.netcom.com" ;
  361.         text "tx11a" 0 281 274 200 "~f32Subject:  How to use notebook with same account" ;
  362.         rect "r11a" 1 326 619 82 ;
  363.         config __textfont 20 ;
  364.         text "tx16" 0 329 524 40 "I have a notebook computer and a desktop computer.  I would like to use my Netcruiser account on BOTH computers.  How can I do this?" ;
  365.         text "tx16a" 0 375 524 40 "> To use the same Netcruiser account on multiple computers, simply install NETCOM's ~n> Netcruiser software on the additional computers using the floppy disk sent to you." ;
  366.         touch "r5" "tx5" "r5e" "r5a" "tx5b" "tx5c" "r5c" "tx5e" "r11a" ;
  367.         resumeaud ;
  368.     frame ;
  369.         arrow "a17" 614 374 2 ;
  370.     frame ;
  371.         pauseaud ;
  372.         status "Click near the bottom of the scroll bar." ;
  373.         imouse 1 622 357 16 38 ;
  374.         status ;
  375.         remove "r11" "tx11" "tx11a" "r11a" "a17" "tx16" "tx16a" ;
  376.         nextimg ;
  377.         rect "r12" 1 238 618 165 ;
  378.         text "tx16a" 0 266 524 20 "> Use the same user id and password as your original installation." ;
  379.         text "tx16b" 0 281 524 20 "> Do NOT register your account after installing on additional computers." ;
  380.         text "tx16c" 0 311 524 20 "> support@ix.netcom.com" ;
  381.         touch "r5" "tx5" "r5e" "r5a" "tx5b" "tx5c" "r5c" "tx5e" "r12" ;
  382.         resumeaud ;
  383.     frame ;
  384.         pauseaud ;
  385.         status "Click the \"Delete current message\" button." ;
  386.         imouse 1 480 80 38 35 ;
  387.         remove "tx5c" "r5e" "r5c" "tx5e" ;
  388.         nextimg ;
  389.         touch "r12" "tx16a" "tx16b" "tx16c" ;
  390.         status "Click the \"Yes\" button." ;
  391.         imouse 1 257 188 57 27 ;
  392.         status ;
  393.         clrscr ;
  394.         endimg ;
  395.         endaud ;
  396.     chainseg "seg_03" ;
  397. endseg ;
  398.  
  399. segment "seg_03" 1 ;
  400.         menuitem "Replying to Electronic Mail" ;
  401.         startimg "l3_seg3.pcf" 0 0 ;
  402.         config __rectcolor white ;
  403.         rect "r5a" 20 121 183 17 ;
  404.         text "tx5b" 22 121 130 17 "~f321  fredgx@point1.com" ;
  405.         rect "r5c" 200 121 200 17 ;
  406.         text "tx5c" 203 121 200 17 "~f32A course on our new product" ;
  407.         call "map1" ;
  408.         call "map2" ;
  409.         startaud "net_3_3.wav" "net_3_3.vcw" 0 ;
  410.     frame ;
  411.         arrow "a1" 367 128 4 ;
  412.         touch "r5c" ;
  413.     frame ;
  414.         pauseaud ;
  415.         status "Double-click anywhere on Message 1." ;
  416.         imouse 4 0 121 620 17 ;
  417.         status ;
  418.         remove "a1" ;
  419.         nextimg ;
  420.         nextimg ;
  421.         rect "r13" 1 264 510 33 ;
  422.         text "tx13" 1 264 168 17 "~f32From:  fredgx@point1.com" ;
  423.         text "tx13a" 0 281 274 17 "~f32Subject:  A course on our new product" ;
  424.         rect "r13a" 1 326 619 82 ;
  425.         text "tx13b" 1 322 586 200 "~f20We're getting a very positive response from our customers on the courses ~nyou have developed for us.  Can you develop a course on our new ~nWindows product, which is due to be released next quarter?" ;
  426.         touch "tx5b" "r5a" "tx5c" "r5c" ;
  427.         resumeaud ;
  428.     frame ;
  429.         pauseaud ;
  430.         status "Read the message.  Then click to continue." ;
  431.         anykeymouse 17 ;
  432.         status ;
  433.         resumeaud ;
  434.     frame ;
  435.         textbox "tb3" 428 241 169 55 "It's easy to respond to messages using email." ;
  436.     frame ;
  437.         remove "tb3" ;
  438.         arrow "a4" 48 96 2 ;
  439.     frame ;
  440.         pauseaud ;
  441.         status "Click the \"Reply to current message\" button." ;
  442.         imouse 1 45 79 38 38 ;
  443.         status ;
  444.         remove "tx5c" "r5c" "r5a" "tx5b" "a4" ;
  445.         nextimg ;
  446.         rect "rtemp" 17 122 168 16 ;
  447.         text "tx5b" 22 121 130 17 "~f321  fredgx@point1.com" ;
  448.         touch "r5a" "r13" "tx13" "tx13a" "r13a" "tx13b" ;
  449.         resumeaud ;
  450.     frame ;
  451.         pauseaud ;
  452.         status "Click the \"Yes\" button." ;
  453.         imouse 1 253 183 58 26 ;
  454.         status ;
  455.         clrscr ;
  456.         nextimg ;
  457.         rect "r17" 66 89 270 15 ;
  458.         text "tx17" 66 89 148 17 "~f31To:  fredgx@point1.com" ;
  459.         rect "r17a" 66 113 270 15 ;
  460.         text "tx17a" 66 113 198 17 "~f31Re:  A course on our new product" ;
  461.         rect "r17b" 1 167 530 215 ;
  462.         text "tx13b" 1 167 586 200 "~f20We're getting a very positive response from our customers on the courses ~nyou have developed for us.  Can you develop a course on our new ~nWindows product, which is due to be released next quarter?" ;
  463.         showcaret 65 113 ;
  464.         call "map1" ;
  465.         resumeaud ;
  466.     frame ;
  467.         pauseaud ;
  468.         status "Press <Enter>." ;
  469.         ikey return ;
  470.         status ;
  471.         config __caretheight 16 ;
  472.         config __caretwidth 2 ;
  473.         showcaret 4 232 ;
  474.         resumeaud ;
  475.     frame ;
  476.         config __textmode opaque ;
  477.         config __textbkcolor white ;
  478.         config __textfont 20 ;
  479.         text "tx19" 4 232 570 20 "It's great to hear the positive feedback.  Yes, we'd love to build another course for you." ;
  480.         text "tx19a" 4 248 570 20 "Please call me at your earliest convenience.                                                                                                                   " ;
  481.         text "tx19b" 4 264 570 20 "Paul Para" ;
  482.         showcaret 62 264 ;
  483.     frame ;
  484.         pauseaud ;
  485.         status "Click the \"Send\" button." ;
  486.         imouse 1 572 86 55 23 ;
  487.         status ;
  488.         clrscr ;
  489.         hidecaret ;
  490.         endimg ;
  491.         startimg "l3_seg3.pcf" 0 0 ;
  492.         nextimg ;
  493.         nextimg ;
  494.         rect "r13" 1 264 510 33 ;
  495.         text "tx13" 1 264 168 17 "~f32From:  fredgx@point1.com" ;
  496.         text "tx13a" 0 281 274 17 "~f32Subject:  A course on our new product" ;
  497.         rect "r13a" 1 326 619 82 ;
  498.         text "tx13b" 1 322 586 200 "~f20We're getting a very positive response from our customers on the courses ~nyou have developed for us.  Can you develop a course on our new ~nWindows product, which is due to be released next quarter?" ;
  499.         rect "r5c" 200 121 200 17 ;
  500.         text "tx5c" 203 121 200 17 "~f32A course on our new product" ;
  501.         rect "r5a" 20 121 183 17 ;
  502.         text "tx5b" 22 121 130 17 "~f321  fredgx@point1.com" ;
  503.         resumeaud ;
  504.     frame ;
  505.         pauseaud ;
  506.         status "Click the \"Send Electronic Mail\" button." ;
  507.         imouse 1 80 40 40 40 ;
  508.         status ;
  509.         clrscr ;
  510.         endimg ;
  511.         startimg "l3_seg3b.pcf" 0 0 ;
  512.         nextimg ;
  513.         config __caretheight 14 ;
  514.         config __caretwidth 1 ;
  515.         showcaret 30 104 ;
  516.         disablescreenmap ;
  517.         resumeaud ;
  518.     frame ;
  519.         pauseaud ;
  520.         status "Type \"president@whitehouse.gov\"" ;
  521.         config __ikeyfont 31 ;
  522.         istring 2 "p" ;
  523.         nextimg ;
  524.         istring 3 "is22" 39 104 200 20 "resident@whitehouse.gov" ;
  525.         status ;
  526.         resumeaud ;
  527.     frame ;
  528.         pauseaud ;
  529.         status "Press <Enter>." ;
  530.         ikey return ;
  531.         status ;
  532.         clrscr ;
  533.         nextimg ;
  534.         showcaret 30 104 ;
  535.         resumeaud ;
  536.     frame ;
  537.         pauseaud ;
  538.         status "Click the \"OK\" button." ;
  539.         imouse 1 548 245 64 25 ;
  540.         status ;
  541.         nextimg ;
  542.         showcaret 65 113 ;
  543.         resumeaud ;
  544.     frame ;
  545.         pauseaud ;
  546.         status "Please wait..." ;
  547.         config __textfont 31 ;
  548.         sleep 1 ;
  549.         tipe "tp6" 66 113 242 20 "New congress" ;
  550.         sleep 100 ;
  551.         config __caretheight 15 ;
  552.         config __caretwidth 2 ;
  553.         showcaret 5 169 ;
  554.         sleep 100 ;
  555.         config __textfont 20 ;
  556.         tipe "tp8" 5 170 608 25 "Are you going to be able to work effectively with a seemingly hostile new congress?" ;
  557.         status ;
  558.         resumeaud ;
  559.     frame ;
  560.         pauseaud ;
  561.         status "Click the \"Send\" button." ;
  562.         imouse 1 572 85 55 24 ;
  563.         status ;
  564.         clrscr ;
  565.         hidecaret ;
  566.         nextimg ;
  567.         config __rectcolor white ;
  568.         rect "r4" 46 144 165 16 ;
  569.         text "tx4" 46 144 187 26 "To:  president@whitehouse.gov" ;
  570.         sleep 100 ;
  571.         endimg ;
  572.         startimg "l3_seg3.pcf" 0 0 ;
  573.         clrscr ;
  574.         nextimg ;
  575.         nextimg ;
  576.         rect "r13" 1 264 510 33 ;
  577.         text "tx13" 1 264 168 17 "~f32From:  fredgx@point1.com" ;
  578.         text "tx13a" 0 281 274 17 "~f32Subject:  A course on our new product" ;
  579.         rect "r13a" 1 326 619 82 ;
  580.         text "tx13b" 1 322 586 200 "~f20We're getting a very positive response from our customers on the courses ~nyou have developed for us.  Can you develop a course on our new ~nWindows product, which is due to be released next quarter?" ;
  581.         rect "r5c" 200 121 200 17 ;
  582.         text "tx5c" 203 121 200 17 "~f32A course on our new product" ;
  583.         rect "r5a" 20 121 183 17 ;
  584.         text "tx5b" 22 121 130 17 "~f321  fredgx@point1.com" ;
  585.         enablescreenmap ;
  586.         resumeaud ;
  587.     frame ;
  588.         textbox "tb16" 382 216 230 102 "You can use \"Finger\" to get an email address, IF you know the address of the computer or service the person uses to connect to Internet." ;
  589.         arrow "a17" 380 82 1 ;
  590.     frame ;
  591.         pauseaud ;
  592.         remove "a17" ;
  593.         box "bx33" 0 18 18 19 ;
  594.         arrow "a18" 23 26 4 ;
  595.         status "Double-click the smaller Control-menu box." ;
  596.         imouse 4 0 18 18 19 ;
  597.         status ;
  598.         clrscr ;
  599.         endimg ;
  600.         endaud ;
  601.     chainseg "seg_04" ;
  602. endseg ;
  603.  
  604. segment "seg_04" 1 ;
  605.         menuitem "Subscribing to Mailing Lists" ;
  606.         startimg "l3_seg4.pcf" 0 0 ;
  607.         call "map1" ;
  608.         startaud "net_3_4.wav" "net_3_4.vcw" 0 ;
  609.     frame ;
  610.         textbox "tb1" 174 100 292 55 "A ~c01mailing list ~c00consists of a group of people who are interested in the same subject." ;
  611.     frame ;
  612.         textbox "tb2" 174 170 292 71 "When you send an email message to a mailing list, all the people on the list receive the message." ;
  613.     frame ;
  614.         textbox "tb3" 156 263 329 39 "Messages sent to mailing lists are called ~c01articles." ;
  615.     frame ;
  616.         textbox "tb4" 156 315 329 39 "There are over ~c015000 ~c00mailing lists on the Internet!" ;
  617.     frame ;
  618.         pauseaud ;
  619.         status "Click to continue..." ;
  620.         anykeymouse 17 ;
  621.         status ;
  622.         clrscr ;
  623.         resumeaud ;
  624.     frame ;
  625.         textbox "tb6" 174 100 292 55 "Stephanie da Silva's list of mailing lists is included in this WinTutor CD-ROM." ;
  626.     frame ;
  627.     frame ;
  628.         config __bitmapontrans 1 ;
  629.         config __bitmapontcolor green ;
  630.         bitmap "bit8" "internet.dll" "WIZ" 470 240 ;
  631.     frame ;
  632.         clrscr ;
  633.         endimg ;
  634.         startimg "l3_list.pcf" 0 0 ;
  635.         disablescreenmap ;
  636.     frame ;
  637.         arrow "a10" 111 87 4 ;
  638.     frame ;
  639.         arrow "a11" 509 159 4 ;
  640.     frame ;
  641.         remove "a10" "a11" ;
  642.     frame ;
  643.         arrow "a13" 129 191 4 ;
  644.         arrow "a13a" 87 369 4 ;
  645.     frame ;
  646.         box "bx14" 389 407 180 20 ;
  647.     frame ;
  648.         remove "a13" "a13a" "bx14" ;
  649.         config __arrowtoken 2 ;
  650.         arrow "a15" 42 266 2 ;
  651.     frame ;
  652.         box "bx16" 44 256 70 19 ;
  653.     frame ;
  654.         remove "bx16" "a15" ;
  655.     frame ;
  656.         pauseaud ;
  657.         status "Click to continue..." ;
  658.         anykeymouse 17 ;
  659.         status ;
  660.         endimg ;
  661.         startimg "l3_seg4.pcf" 0 0 ;
  662.         call "map1" ;
  663.         resumeaud ;
  664.     frame ;
  665.         pauseaud ;
  666.         status "Click the \"Send Electronic Mail\" button." ;
  667.         imouse 1 80 40 40 40 ;
  668.         status ;
  669.         nextimg ;
  670.         config __caretheight 14 ;
  671.         showcaret 30 104 ;
  672.         disablescreenmap ;
  673.         resumeaud ;
  674.     frame ;
  675.         pauseaud ;
  676.         status "Please wait..." ;
  677.         nextimg ;
  678.         showcaret 39 104 ;
  679.         sleep 1 ;
  680.         config __textfont 31 ;
  681.         tipe "tp2" 35 103 190 20 "istproc@speleology.cs.yale.edu" ;
  682.         showcaret 215 104 ;
  683.         status ;
  684.         resumeaud ;
  685.     frame ;
  686.         pauseaud ;
  687.         status "Press <Enter>." ;
  688.         ikey return ;
  689.         clrscr ;
  690.         nextimg ;
  691.         showcaret 30 104 ;
  692.         status "Press <Enter> again." ;
  693.         ikey return ;
  694.         nextimg ;
  695.         showcaret 93 156 ;
  696.         enablescreenmap ;
  697.         status "Click the Maximize button in the \"Send Mail\" window." ;
  698.         imouse 1 594 103 20 19 ;
  699.         status ;
  700.         nextimg ;
  701.         showcaret 65 113 ;
  702.         resumeaud ;
  703.     frame ;
  704.         pauseaud ;
  705.         status "Press <Enter>." ;
  706.         ikey return ;
  707.         status ;
  708.         config __caretheight 16 ;
  709.         config __caretwidth 2 ;
  710.         showcaret 4 169 ;
  711.         resumeaud ;
  712.     frame ;
  713.         pauseaud ;
  714.         status "Please wait..." ;
  715.         sleep 1 ;
  716.         tipe "tp8" 5 170 608 25 "SUSCRIBE CAVERS-DIGEST PAUL PARA" ;
  717.         status ;
  718.         resumeaud ;
  719.     frame ;
  720.         pauseaud ;
  721.         status "Click the \"Send\" button." ;
  722.         imouse 1 571 85 56 24 ;
  723.         status "Please wait ..." ;
  724.         clrscr ;
  725.         hidecaret ;
  726.         nextimg ;
  727.         config __rectcolor white ;
  728.         rect "r4" 46 144 165 16 ;
  729.         text "tx4" 46 144 210 26 "To:  listproc@speleology.cs.yale.edu" ;
  730.         sleep 200 ;
  731.         clrscr ;
  732.         nextimg ;
  733.         status ;
  734.         resumeaud ;
  735.     frame ;
  736.         pauseaud ;
  737.         config __bitmapontrans 1 ;
  738.         config __bitmapontcolor green ;
  739.         config __bitmaponfx 107 ;
  740.         config __bitmapongrain 10 ;
  741.         config __bitmaponsubgrain 10 ;
  742.         config __bitmapondelay 1 ;
  743.         bitmap "bit25" "internet.dll" "WIZ" 470 240 ;
  744.         resumeaud ;
  745.     frame ;
  746.         pauseaud ;
  747.         status "Please wait..." ;
  748.         clrscr ;
  749.         endimg ;
  750.         hourglass 1 ;
  751.         config __rectcolor black ;
  752.         rect "r26" 0 0 641 481 ;
  753.         config __bitmaponfx 0 ;
  754.         bitmap "bit25a" "internet.dll" "LIGHTNG" 50 50 ;
  755.         bitmap "bit25b" "internet.dll" "LIGHTNG" 200 200 ;
  756.         sleep 200 ;
  757.         clrscr ;
  758.         status ;
  759.         hourglass 0 ;
  760.         endaud ;
  761.     chainseg "seg_05" ;
  762. endseg ;
  763.  
  764. segment "seg_05" 1 ;
  765.         menuitem "Reading Mailing List Articles" ;
  766.         startimg "l3_seg5.pcf" 0 0 ;
  767.         call "map1" ;
  768.         startaud "net_3_5.wav" "net_3_5.vcw" 0 ;
  769.     frame ;
  770.         pauseaud ;
  771.         status "Click the \"Read Electronic Mail\" button." ;
  772.         imouse 1 40 40 40 40 ;
  773.         clrscr ;
  774.         nextimg ;
  775.         disablescreenmap ;
  776.         status "Click the \"OK\" button." ;
  777.         imouse 1 472 111 62 24 ;
  778.         status "Please wait..." ;
  779.         nextimg ;
  780.         sleep 100 ;
  781.         nextimg ;
  782.         config __textmode opaque ;
  783.         config __textbkcolor white ;
  784.         text "tx27" 94 165 150 16 "~f32\"Marybeth Effingetter\"     " ;
  785.         status "Click the Maximize button in the \"Read Mail\" window." ;
  786.         imouse 1 562 100 21 21 ;
  787.         status ;
  788.         remove "tx27" ;
  789.         nextimg ;
  790.         text "tx27" 30 122 150 17 "~f32\"Marybeth Effingetter\"        " ;
  791.         call "map2" ;
  792.         resumeaud ;
  793.     frame ;
  794.         pauseaud ;
  795.         status "Double-click anywhere on Message 2." ;
  796.         imouse 4 1 138 619 18 ;
  797.         status ;
  798.         nextimg ;
  799.         touch "tx27" ;
  800.         resumeaud ;
  801.     frame ;
  802.         pauseaud ;
  803.         arrow "a29" 613 282 2 ;
  804.         status "Read it over.  Then click the scroll bar." ;
  805.         imouse 1 623 265 16 127 ;
  806.         status ;
  807.         remove "a29" ;
  808.         nextimg ;
  809.         touch "tx27" ;
  810.         resumeaud ;
  811.     frame ;
  812.         pauseaud ;
  813.         status "Click the \"Delete current message\" button." ;
  814.         imouse 1 480 80 37 36 ;
  815.         nextimg ;
  816.         touch "tx27" ;
  817.         status "Click the \"Yes\" button." ;
  818.         imouse 1 258 258 55 27 ;
  819.         status ;
  820.         nextimg ;
  821.         touch "tx27" ;
  822.         resumeaud ;
  823.     frame ;
  824.         pauseaud ;
  825.         status "Double-click anywhere on Message 1." ;
  826.         imouse 4 0 120 624 17 ;
  827.         status ;
  828.         nextimg ;
  829.         touch "tx27" ;
  830.         text "tx31" 39 266 150 17 "~f32\"Marybeth Effingetter\"      " ;
  831.         text "tx32" 174 266 128 17 "~f32   <MBTH2@msu.edu>" ;
  832.         resumeaud ;
  833.     frame ;
  834.         pauseaud ;
  835.         status "Click the \"Save current message\" button." ;
  836.         imouse 1 121 80 38 36 ;
  837.         remove "tx32" ;
  838.         nextimg ;
  839.         touch "tx27" "tx31" ;
  840.         status "Click the \"OK\" button." ;
  841.         imouse 1 295 267 56 26 ;
  842.         status ;
  843.         nextimg ;
  844.         text "tx33" 174 266 127 16 "~f32   <MBTH2@msu.edu>" ;
  845.         touch "tx27" "tx31" ;
  846.         resumeaud ;
  847.     frame ;
  848.         pauseaud ;
  849.         box "bx33" 0 18 18 19 ;
  850.         arrow "a7" 22 26 4 ;
  851.         status "Double-click the smaller Control-menu box." ;
  852.         imouse 4 0 18 18 19 ;
  853.         status ;
  854.         clrscr ;
  855.         nextimg ;
  856.         resumeaud ;
  857.     frame ;
  858.         textbox "tb34" 158 97 325 54 "There are rules concerning acceptable behavior when sending an article to a mailing list." ;
  859.     frame ;
  860.         textbox "tb35" 158 167 325 54 "You'll learn about the rules of ~c01netiquette ~c00during the next lesson." ;
  861.     frame ;
  862.         textbox "tb36" 158 237 325 54 "Be aware that many mailing lists send lots of articles each day." ;
  863.     frame ;
  864.         pauseaud ;
  865.         status "Click to continue..." ;
  866.         anykeymouse 17 ;
  867.         status ;
  868.         clrscr ;
  869.         endimg ;
  870.         endaud ;
  871.     chainseg "review" ;
  872. endseg ;
  873.  
  874. segment "review" 1 ;
  875.         menuitem "Lesson Review" ;
  876.         startimg "tr.pcf" 0 0 ;
  877.         config __textcolor darkcyan ;
  878.         text "tx0a" 222 39 390 23 "~f05Lesson 3:  Sending and Receiving Electronic Mail" ;
  879.         config __textcolor darkred ;
  880.         text "tx0" 337 69 120 33 "~f27Review" ;
  881.         config __textcolor medblue ;
  882.         text "tx1" 244 139 279 33 "~f26In this lesson you learned how to:" ;
  883.         startbullet 219 180 379 167 ;
  884.         bullet "b1" 1 0 "Send email messages" ;
  885.         bullet "b3" 1 6 "Read email messages" ;
  886.         bullet "b4" 1 12 "Reply to email messages" ;
  887.         bullet "b5" 1 18 "Suscribe to a mailing list" ;
  888.         startaud "net_rev.wav" "net_rev.vcw" 0 ;
  889.     frame ;
  890.         pauseaud ;
  891.         status "Click to begin the Review." ;
  892.         anykeymouse 17 ;
  893.         status ;
  894.         clrscr ;
  895.         endimg ;
  896.         startimg "l3_rev.pcf" 0 0 ;
  897.         call "map1" ;
  898.         textbox "tb1" 207 123 227 71 "You can send email messages to other people using the \"Send Electronic Mail\" button." ;
  899.         textbox "tbb" 207 210 227 71 "You can read email messages sent to you using the \"Read Electronic Mail\" button." ;
  900.         arrow "a3" 100 81 1 ;
  901.         text "tx3" 83 131 52 19 "~c06Send" ;
  902.         arrow "a4" 60 81 1 ;
  903.         text "tx4" 42 131 35 17 "~c06Read" ;
  904.         touch "tx3" ;
  905.         status "Click to continue..." ;
  906.         anykeymouse 17 ;
  907.         clrscr ;
  908.         nextimg ;
  909.         disablescreenmap ;
  910.         showcaret 172 104 ;
  911.         textbox "tb2" 159 235 322 55 "After clicking the \"Send Electronic Mail\" button, you complete the \"Address Mail To\" window." ;
  912.         textbox "tb2a" 159 300 322 55 "You can either type in an email address, or select one from the Address Book." ;
  913.         textbox "tb2b" 159 365 320 72 "You can send the same message to several people, by adding their addresses to the Email Recipients list." ;
  914.         anykeymouse 17 ;
  915.         clrscr ;
  916.         nextimg ;
  917.         enablescreenmap ;
  918.         config __caretheight 16 ;
  919.         config __caretwidth 2 ;
  920.         showcaret 580 170 ;
  921.         textbox "tb3" 200 195 241 119 "After selecting the recipients of your message, you: ~n~n~c011.  ~c00Enter a subject. ~n~c012.  ~c00Enter the body of the message. ~n~c013.  ~c00Click the Send button." ;
  922.         anykeymouse 17 ;
  923.         clrscr ;
  924.         hidecaret ;
  925.         nextimg ;
  926.         call "map2" ;
  927.         textbox "tb4" 159 241 323 104 "To access your email messages, you: ~n~n~c011.  ~c00Click the \"Read Electronic Mail\" button from the opening screen. ~n~c012.  ~c00Select the Inbox folder or Saved Mail folder." ;
  928.         anykeymouse 17 ;
  929.         clrscr ;
  930.         nextimg ;
  931.         textbox "tb5" 417 168 199 53 "You can read a message by double-clicking it." ;
  932.         textbox "tb5a" 324 235 291 117 "After reading a message, you can use the Speed Buttons to: ~n~n~c01*  ~c00Delete the message. ~n~c01*  ~c00Save the message. ~n~c01*  ~c00Reply to the message." ;
  933.         anykeymouse 17 ;
  934.         clrscr ;
  935.         nextimg ;
  936.         disablescreenmap ;
  937.         showcaret 61 265 ;
  938.         textbox "tb6" 153 268 334 70 "You can reply to an email message by clicking the \"Reply\" button and then choosing whether or not to include the original message." ;
  939.         textbox "tb6a" 153 345 334 70 "The email address and subject are automatically entered for you.  You can change the subject if you wish, and then enter a reply." ;
  940.         anykeymouse 17 ;
  941.         clrscr ;
  942.         hidecaret ;
  943.         nextimg ;
  944.         call "map1" ;
  945.         textbox "tb1" 174 100 292 55 "A ~c01mailing list ~c00consists of a group of people who are interested in the same subject." ;
  946.         textbox "tb2" 174 170 292 71 "When you send an email message to a mailing list, all the people on the list receive the message." ;
  947.         textbox "tb3" 156 263 329 39 "Messages sent to mailing lists are called ~c01articles." ;
  948.         textbox "tb4" 156 315 329 39 "There are over ~c015000 ~c00mailing lists on the Internet!" ;
  949.         anykeymouse 17 ;
  950.         clrscr ;
  951.         nextimg ;
  952.         showcaret 227 169 ;
  953.         textbox "tb8" 171 199 295 52 "Lists of mailing lists are stored in various places on the Internet." ;
  954.         textbox "tb8a" 171 260 295 52 "Instructions for downloading Stephanie da Silva's list are included on this CD-ROM." ;
  955.         textbox "tb8b" 171 320 295 71 "To suscribe to a list, send an email message to the address indicated in the mailing list instructions." ;
  956.         anykeymouse 17 ;
  957.         status ;
  958.         clrscr ;
  959.         hidecaret ;
  960.         endimg ;
  961.         endaud ;
  962.     chainseg "seg_end" ;
  963. endseg ;
  964.  
  965. segment "seg_end" 1 ;
  966.         menuitem "Lesson Conclusion" ;
  967.         startimg "tr.pcf" 0 0 ;
  968.         config __textcolor darkcyan ;
  969.         text "tx0a" 222 39 390 23 "~f05Lesson 3:  Sending and Receiving Electronic Mail" ;
  970.         config __textcolor darkred ;
  971.         text "tx0" 340 65 150 31 "~f27Conclusion" ;
  972.         startbullet 219 120 365 167 ;
  973.         bullet "b0" 1 0 "If you are unsure about any of the material covered, you should take some or all of the lesson again." ;
  974.         bullet "b1" 1 11 "In Lesson 4 you'll learn how to work with UseNet Newsgroups." ;
  975.         config __bitmaponfx 15 ;
  976.         config __bitmapongrain 1000 ;
  977.         config __bitmaponsubgrain 1000 ;
  978.         config __bitmapondelay 1 ;
  979.         config __bitmapontrans 1 ;
  980.         config __bitmapontcolor green ;
  981.         bitmap "bit0" "internet.dll" "WIZ" 321 245 ;
  982.         startavi "l3e.avi" "jnk1.vcw" 15 78 ;
  983.         status "Click to return to the Course Menu" ;
  984.         anykeymouse 17 ;
  985.         clrscr ;
  986.         endimg ;
  987. endseg ;
  988.  
  989.